SuperHack/SuperHack CD.bin/CODING/VBASIC/NW41BAS.ZIP/SERVERIN.FRM

Visual Basic Form | 1995-07-30 | 9.9 KB | 305 lines

VERSION 2.00
Begin Form ServerInfo
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Info on Server"
   ClientHeight    =   3048
   ClientLeft      =   936
   ClientTop       =   1332
   ClientWidth     =   6000
   ControlBox      =   0   'False
   Height          =   3372
   Left            =   888
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3048
   ScaleWidth      =   6000
   Top             =   1056
   Width           =   6096
   Begin Timer Timer1
      Interval        =   1000
      Left            =   144
      Top             =   3120
   End
   Begin CommandButton Command1
      Caption         =   "Return to the Server Selection Form"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   2580
      Width           =   5775
   End
   Begin Label Label22
      BackStyle       =   0  'Transparent
      Caption         =   "Label22"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   2340
      TabIndex        =   9
      Top             =   2340
      Width           =   3555
   End
   Begin Label Label19
      BackStyle       =   0  'Transparent
      Caption         =   "Label19"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2340
      TabIndex        =   10
      Top             =   1920
      Width           =   2535
   End
   Begin Label Label18
      BackStyle       =   0  'Transparent
      Caption         =   "Label18"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2340
      TabIndex        =   18
      Top             =   1680
      Width           =   2535
   End
   Begin Label Label17
      BackStyle       =   0  'Transparent
      Caption         =   "Label17"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2340
      TabIndex        =   17
      Top             =   1440
      Width           =   2535
   End
   Begin Label Label16
      BackStyle       =   0  'Transparent
      Caption         =   "Label16"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2340
      TabIndex        =   16
      Top             =   1200
      Width           =   2535
   End
   Begin Label Label15
      BackStyle       =   0  'Transparent
      Caption         =   "Label15"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2340
      TabIndex        =   15
      Top             =   960
      Width           =   2535
   End
   Begin Label Label14
      BackStyle       =   0  'Transparent
      Caption         =   "Label14"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2340
      TabIndex        =   14
      Top             =   720
      Width           =   2535
   End
   Begin Label Label13
      BackStyle       =   0  'Transparent
      Caption         =   "Label13"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2340
      TabIndex        =   13
      Top             =   480
      Width           =   2955
   End
   Begin Label Label12
      BackStyle       =   0  'Transparent
      Caption         =   "Label12"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   2340
      TabIndex        =   12
      Top             =   120
      Width           =   2535
   End
   Begin Line Line4
      X1              =   5880
      X2              =   5880
      Y1              =   420
      Y2              =   2220
   End
   Begin Line Line3
      X1              =   180
      X2              =   180
      Y1              =   420
      Y2              =   2220
   End
   Begin Line Line2
      X1              =   180
      X2              =   5880
      Y1              =   2220
      Y2              =   2220
   End
   Begin Label Label11
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Server Date and Time:"
      Height          =   255
      Left            =   300
      TabIndex        =   11
      Top             =   2340
      Width           =   1995
   End
   Begin Line Line1
      X1              =   180
      X2              =   5880
      Y1              =   420
      Y2              =   420
   End
   Begin Label Label8
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Volumes Supported:"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   1920
      Width           =   2055
   End
   Begin Label Label7
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Connections in Use:"
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   1680
      Width           =   2055
   End
   Begin Label Label6
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Connections Supported:"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   1440
      Width           =   2055
   End
   Begin Label Label5
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "TTS Level:"
      Height          =   255
      Left            =   600
      TabIndex        =   5
      Top             =   1200
      Width           =   1695
   End
   Begin Label Label4
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "SFT level:"
      Height          =   255
      Left            =   600
      TabIndex        =   4
      Top             =   960
      Width           =   1695
   End
   Begin Label Label3
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "File Server Name:"
      Height          =   255
      Left            =   720
      TabIndex        =   3
      Top             =   120
      Width           =   1575
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Netware Revision:"
      Height          =   255
      Left            =   420
      TabIndex        =   1
      Top             =   720
      Width           =   1875
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Netware Version:"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   540
      TabIndex        =   0
      Top             =   480
      Width           =   1755
   End
Dim ConnCode As Integer
Dim Days(6) As String
Sub Command1_Click ()
    If ConnCode <> 1 Then
        ccode% = NWDetachFromFileServer(ConnCode)
    End If
    Unload ServerInfo
End Sub
Sub Form_Load ()
    Screen.MousePointer = 11
    Dim DateTIme As DATE_AND_TIME
    Days(0) = "Sunday"
    Days(1) = "Monday"
    Days(2) = "Tuesday"
    Days(3) = "Wednsday"
    Days(4) = "Thursday"
    Days(5) = "Friday"
    Days(6) = "Saturday"
    ServerName$ = RTrim$(WinsList.ServerList.List(WinsList.ServerList.ListIndex))
    ccode% = NWAttachtoFileServer(ServerName$, 0, ConnCode)
    If ccode% Then
        ConnCode = 1
    End If
    'Get Info from the Prospective Server and place it
    'in the Appropriate place.
    Label12.Caption = ServerName$
    ServerNameTemp$ = String(48, " ")
    ccode% = NWGetFileServerInformation(ConnCode, ServerNameTemp$, MajorVersion%, MinorVersion%, Revision%, MaxxConnections%, MaxConnectionsUsed%, ConnectionsinUse%, NumVolumes%, SFTLevel%, TTSLevel%)
    copyrightNotice$ = String(80, " ")
    companyName$ = String(80, " ")
    Revision2$ = String(80, " ")
    revisionDate$ = String(24, " ")
    ccode% = NWGetFileServerDescription(ConnCode, companyName$, Revision2$, revisionDate$, copyrightNotice$)
    companyName$ = Left$(companyName$, InStr(companyName$, Chr$(0)) - 1)
    Revision2$ = Left$(Revision2$, InStr(Revision2$, Chr$(0)) - 1)
    Label13.Caption = companyName$ + " " + Revision2$
    Label14.Caption = revisionDate$
    Label15.Caption = SFTLevel%
    Label16.Caption = TTSLevel%
    Label17.Caption = MaxxConnections%
    Label18.Caption = ConnectionsinUse%
    Label19.Caption = NumVolumes%
    ccode% = NWGetFIleServerDateAndTime(ConnCode, DateTIme)
    DayNum = Asc(DateTIme.day)
    HR = Asc(DateTIme.Hour)
    MN = Asc(DateTIme.Minute)
    SC = Asc(DateTIme.Second)
    MO = Asc(DateTIme.Month)
    DY = Asc(DateTIme.Date)
    YR = Asc(DateTIme.Year)
    Label22.Caption = RTrim$(Days(DayNum)) + " at " + Format$(HR, "00") + ":" + Format$(MN, "00") + "." + Format$(SC, "00")
    Label22.Caption = Label22.Caption + " on " + Format$(MO, "00") + "/" + Format$(DY, "00") + "/19" + Format$(YR, "00")
    Screen.MousePointer = 0
End Sub
Sub Timer1_Timer ()
    Dim DateTIme As DATE_AND_TIME
    ccode% = NWGetFIleServerDateAndTime(ConnCode, DateTIme)
    DayNum = Asc(DateTIme.day)
    HR = Asc(DateTIme.Hour)
    MN = Asc(DateTIme.Minute)
    SC = Asc(DateTIme.Second)
    MO = Asc(DateTIme.Month)
    DY = Asc(DateTIme.Date)
    YR = Asc(DateTIme.Year)
    Label22.Caption = RTrim$(Days(DayNum)) + " at " + Format$(HR, "00") + ":" + Format$(MN, "00") + "." + Format$(SC, "00")
    Label22.Caption = Label22.Caption + " on " + Format$(MO, "00") + "/" + Format$(DY, "00") + "/19" + Format$(YR, "00")
End Sub